home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tsca / dbstat.frm < prev    next >
Text File  |  1995-05-08  |  2KB  |  80 lines
  1. VERSION 2.00
  2. Begin Form DBStat 
  3.    BackColor       =   &H00FFFF80&
  4.    Caption         =   "Component Control"
  5.    ClientHeight    =   2520
  6.    ClientLeft      =   660
  7.    ClientTop       =   4350
  8.    ClientWidth     =   4050
  9.    Height          =   2925
  10.    Left            =   600
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2520
  13.    ScaleWidth      =   4050
  14.    Top             =   4005
  15.    Width           =   4170
  16.    Begin TextBox Text2 
  17.       Height          =   285
  18.       Left            =   2280
  19.       TabIndex        =   5
  20.       Text            =   "Text2"
  21.       Top             =   240
  22.       Width           =   615
  23.    End
  24.    Begin ListBox List1 
  25.       Height          =   1395
  26.       Left            =   240
  27.       TabIndex        =   3
  28.       Top             =   840
  29.       Width           =   1455
  30.    End
  31.    Begin TextBox Text1 
  32.       Height          =   285
  33.       Left            =   240
  34.       TabIndex        =   1
  35.       Text            =   "Text1"
  36.       Top             =   240
  37.       Width           =   1695
  38.    End
  39.    Begin CommandButton Command1 
  40.       Caption         =   "Okay"
  41.       Height          =   375
  42.       Left            =   2280
  43.       TabIndex        =   0
  44.       Top             =   1920
  45.       Width           =   1215
  46.    End
  47.    Begin Label Label2 
  48.       BackColor       =   &H00FFFF80&
  49.       Caption         =   "is"
  50.       Height          =   255
  51.       Left            =   2040
  52.       TabIndex        =   4
  53.       Top             =   240
  54.       Width           =   255
  55.    End
  56.    Begin Label Label1 
  57.       BackColor       =   &H00FFFF80&
  58.       Caption         =   "Select defective part."
  59.       Height          =   255
  60.       Left            =   2040
  61.       TabIndex        =   2
  62.       Top             =   720
  63.       Width           =   1935
  64.    End
  65. End
  66. Sub Command1_Click ()
  67. Dim cm As Integer
  68. cm = List1.ListIndex
  69. If cm >= 0 Then fault(caller) = List1.Text
  70. Unload DBStat
  71. End Sub
  72.  
  73. Sub Form_Load ()
  74. Dim i As Integer
  75. For i = 0 To 4
  76.     DBStat.List1.AddItem part(i)
  77. Next i
  78. End Sub
  79.  
  80.